home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / gfxfx / effect5.pas < prev    next >
Pascal/Delphi Source File  |  1994-06-22  |  17KB  |  264 lines
  1.  
  2. {$n+,e-} { disable if you like }
  3. program bitmapscaling;
  4. { Bitmap effect, no5, Scaling (SLOW!) By Bas van Gaalen, Holland, PD }
  5. uses crt;
  6. const
  7.   vseg : word = $a000;
  8.   Pal : array[0..$2ff] of byte = (
  9.     0,0,0,2,2,2,4,4,4,6,6,6,8,8,8,10,10,10,12,12,12,14,14,14,16,16,16,18,
  10.     18,18,20,20,20,22,22,22,24,24,24,26,26,26,28,28,28,30,30,30,33,33,33,
  11.     35,35,35,37,37,37,39,39,39,41,41,41,43,43,43,45,45,45,47,47,47,49,49,
  12.     49,51,51,51,53,53,53,55,55,55,57,57,57,59,59,59,61,61,61,63,63,63,63,
  13.     51,51,63,63,51,51,63,51,51,63,63,51,51,63,63,51,63,63,39,39,63,51,39,
  14.     63,63,39,51,63,39,39,63,39,39,63,51,39,63,63,39,51,63,39,39,63,51,39,
  15.     63,63,39,63,63,39,51,63,27,27,63,39,27,63,51,27,63,63,27,51,63,27,39,
  16.     63,27,27,63,27,27,63,39,27,63,51,27,63,63,27,51,63,27,39,63,27,27,63,
  17.     39,27,63,51,27,63,63,27,63,63,27,51,63,27,39,63,15,15,63,27,15,63,39,
  18.     15,63,51,15,63,63,15,51,63,15,39,63,15,27,63,15,15,63,15,15,63,27,15,
  19.     63,39,15,63,51,15,63,63,15,51,63,15,39,63,15,27,63,15,15,63,27,15,63,
  20.     39,15,63,51,15,63,63,15,63,63,15,51,63,15,39,63,15,27,63,3,15,63,3,3,
  21.     63,15,3,63,27,3,63,39,3,63,51,3,63,63,3,51,63,3,39,63,3,27,63,3,15,63,
  22.     3,3,63,3,3,63,15,3,63,27,3,63,39,3,63,51,3,63,63,3,51,63,3,39,63,3,27,
  23.     63,3,15,63,3,3,63,15,3,63,27,3,63,39,3,63,51,3,63,63,3,63,63,3,51,63,
  24.     3,39,63,3,27,51,3,15,51,3,3,51,15,3,51,27,3,51,39,3,51,51,3,39,51,3,
  25.     27,51,3,15,51,3,3,51,3,3,51,15,3,51,27,3,51,39,3,51,51,3,39,51,3,27,
  26.     51,3,15,51,3,3,51,15,3,51,27,3,51,39,3,51,51,3,51,51,3,39,51,3,27,39,
  27.     3,15,39,3,3,39,15,3,39,27,3,39,39,3,27,39,3,15,39,3,3,39,3,3,39,15,3,
  28.     39,27,3,39,39,3,27,39,3,15,39,3,3,39,15,3,39,27,3,39,39,3,39,39,3,27,
  29.     27,3,15,27,3,3,27,15,3,27,27,3,15,27,3,3,27,3,3,27,15,3,27,27,3,15,27,
  30.     3,3,27,15,3,27,27,3,27,15,3,3,15,15,3,3,15,3,3,15,15,3,3,15,15,3,15,
  31.     27,15,15,27,27,15,15,27,15,15,27,27,15,15,27,27,15,27,39,15,15,39,27,
  32.     15,39,39,15,27,39,15,15,39,15,15,39,27,15,39,39,15,27,39,15,15,39,27,
  33.     15,39,39,15,39,39,15,27,51,15,15,51,27,15,51,39,15,51,51,15,39,51,15,
  34.     27,51,15,15,51,15,15,51,27,15,51,39,15,51,51,15,39,51,15,27,51,15,15,
  35.     51,27,15,51,39,15,51,51,15,51,51,15,39,51,15,27,51,27,27,51,39,27,51,
  36.     51,27,39,51,27,27,51,27,27,51,39,27,51,51,27,39,51,27,27,51,39,27,51,
  37.     51,27,51,51,27,39,51,39,39,51,51,39,39,51,39,39,51,51,39,39,51,51,39,
  38.     51,39,27,27,39,39,27,27,39,27,27,39,39,27,27,39,39,27,39,3,3,3,15,15,
  39.     15,27,27,27,39,39,39,51,51,51,63,63,63,63,22,3,39,7,5,36,36,63,0,0,0,
  40.     22,22,22,38,38,38,52,52,52,63,0,0);
  41.   Pic : array[0..102*32] of byte = (
  42.     0,0,0,0,242,242,2,180,180,180,180,180,180,180,180,180,180,2,1,0,0,0,
  43.     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,180,180,180,180,180,180,180,180,
  44.     180,180,242,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,242,242,242,242,242,242,
  45.     1,1,1,242,242,242,242,242,180,180,173,173,173,173,173,159,159,159,159,
  46.     159,180,173,173,180,1,0,0,0,0,0,173,173,173,173,159,139,139,139,139,
  47.     139,139,139,139,159,173,180,180,242,242,242,242,1,0,0,0,0,0,0,0,0,0,0,
  48.     0,0,0,1,180,173,159,139,139,138,138,159,139,139,139,159,173,242,0,0,0,
  49.     1,1,242,242,242,1,1,0,1,242,2,2,180,180,180,180,180,180,180,180,180,
  50.     173,173,173,173,173,173,173,173,159,159,138,138,138,113,113,113,113,
  51.     139,173,158,158,173,2,0,0,0,0,173,139,139,138,138,138,112,112,112,112,
  52.     112,112,112,112,138,159,159,173,173,173,173,173,180,2,242,242,242,242,
  53.     242,242,242,1,0,0,1,242,180,159,138,112,112,112,112,112,138,112,112,
  54.     112,139,173,180,242,242,242,180,173,173,173,173,173,180,2,3,3,180,180,
  55.     179,173,173,173,173,173,173,173,159,139,139,137,139,138,138,139,138,
  56.     138,138,112,112,112,111,110,110,110,137,111,138,158,172,180,1,0,0,180,
  57.     159,112,112,112,112,112,111,138,138,138,138,138,138,138,138,138,159,
  58.     159,159,138,138,139,159,173,173,173,173,173,173,173,173,173,180,180,
  59.     173,173,159,139,112,111,138,138,138,138,138,138,138,138,138,159,173,
  60.     180,173,173,159,139,138,138,139,159,173,180,4,180,173,172,172,158,159,
  61.     159,158,137,139,139,139,111,111,111,112,112,112,112,112,112,111,138,
  62.     138,138,138,138,138,138,138,138,138,138,158,180,2,1,0,180,139,112,111,
  63.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,112,
  64.     112,138,138,159,138,138,138,138,138,138,139,159,173,173,159,139,138,
  65.     138,112,138,138,138,138,138,138,138,138,138,138,159,159,158,138,138,
  66.     138,112,112,112,138,139,173,173,173,159,158,158,138,138,138,159,111,
  67.     112,112,111,111,111,138,138,138,138,138,138,138,138,138,138,138,138,
  68.     138,138,138,138,138,138,138,138,158,172,180,242,0,180,139,112,138,138,
  69.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  70.     138,138,138,138,112,112,112,112,112,138,138,159,139,138,112,112,111,
  71.     111,138,138,138,138,138,138,138,138,138,138,138,111,111,111,111,111,
  72.     111,138,138,138,138,159,159,158,138,138,138,112,112,112,112,111,138,
  73.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  74.     138,138,138,138,138,138,138,138,158,172,180,1,180,139,112,138,138,138,
  75.     138,138,138,138,138,138,138,138,211,211,211,211,138,138,138,138,138,
  76.     138,138,138,138,138,138,138,138,138,138,138,159,111,111,138,138,138,
  77.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  78.     138,138,138,138,158,138,138,138,112,112,138,138,138,138,138,138,138,
  79.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  80.     138,138,138,138,138,138,138,138,158,180,2,180,139,112,138,138,138,138,
  81.     138,211,211,211,211,211,225,46,46,46,62,212,138,138,138,138,138,138,
  82.     138,138,138,138,138,138,138,138,138,138,111,138,138,138,138,138,138,
  83.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  84.     138,138,138,112,112,112,112,138,138,138,138,138,138,138,138,138,138,
  85.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  86.     138,138,138,138,138,138,158,172,180,180,159,138,138,138,138,138,211,
  87.     46,46,46,46,46,45,36,46,250,62,212,138,138,138,138,138,138,138,138,
  88.     138,138,138,138,138,138,138,138,138,138,211,211,211,211,138,138,138,
  89.     138,211,211,211,211,211,211,138,138,138,138,138,138,138,138,138,138,
  90.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  91.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  92.     138,138,138,138,138,158,172,1,180,173,159,158,138,138,225,36,46,46,
  93.     46,46,46,250,62,62,84,138,138,138,211,211,138,138,138,138,138,138,211,
  94.     138,138,138,138,138,226,46,46,46,46,250,211,138,138,211,46,46,46,46,
  95.     46,226,212,138,138,138,138,138,211,211,138,138,138,138,138,138,138,
  96.     138,138,211,211,211,211,211,211,138,138,138,138,138,138,138,138,138,
  97.     138,138,211,211,138,138,211,211,211,211,211,211,211,138,138,138,138,
  98.     158,172,0,242,180,173,158,137,211,61,46,250,62,62,62,62,62,62,212,138,
  99.     138,138,211,46,250,211,138,138,138,138,211,226,211,138,138,138,226,45,
  100.     36,46,250,250,250,62,212,138,211,46,46,46,250,62,212,138,138,138,138,
  101.     138,226,46,46,46,46,46,250,211,138,138,211,225,46,46,46,46,46,250,211,
  102.     211,138,138,138,138,138,211,211,211,225,46,250,212,211,46,46,46,46,46,
  103.     46,61,212,138,138,138,158,172,0,2,173,159,138,111,137,211,250,250,62,
  104.     212,212,212,212,138,138,138,138,138,211,46,46,62,138,138,138,138,226,
  105.     225,212,138,138,211,46,36,250,62,212,212,62,62,62,138,211,46,46,250,
  106.     62,212,138,138,138,138,138,226,45,36,46,250,250,250,250,62,138,212,
  107.     225,46,36,46,46,46,46,250,250,61,211,138,138,138,226,46,46,46,45,36,
  108.     250,212,226,36,46,250,62,250,250,250,211,138,138,138,158,179,1,180,
  109.     159,138,111,111,137,226,46,46,62,212,138,138,138,138,138,137,138,138,
  110.     211,250,250,62,212,138,138,211,225,226,138,138,138,225,36,46,62,212,
  111.     138,138,211,250,62,212,211,46,46,250,62,138,138,137,138,138,211,46,
  112.     36,250,84,212,212,62,250,62,212,138,211,46,250,62,62,62,62,62,250,
  113.     250,62,212,138,211,46,36,46,46,46,250,62,211,46,36,62,212,138,212,62,
  114.     62,62,138,138,138,158,179,242,173,139,112,111,138,211,46,36,250,62,
  115.     211,211,211,137,138,138,138,138,138,138,211,62,62,62,211,137,225,46,
  116.     211,138,138,211,61,46,62,212,138,138,137,211,46,250,212,211,46,46,62,
  117.     212,138,138,138,138,138,225,36,250,212,138,138,138,211,62,62,211,138,
  118.     211,46,250,212,212,212,212,211,62,250,250,62,138,211,46,46,62,62,62,
  119.     62,84,211,250,250,84,138,138,137,211,62,62,212,138,138,158,179,2,173,
  120.     138,112,138,138,211,46,46,250,250,250,46,61,212,138,138,138,138,138,
  121.     138,138,212,62,62,62,62,46,46,212,138,138,138,211,250,62,212,138,137,
  122.     138,211,46,62,212,211,45,46,62,212,138,137,138,138,211,46,45,62,138,
  123.     138,138,137,138,211,250,62,137,211,46,250,212,138,138,138,138,211,250,
  124.     46,62,212,211,46,250,212,212,212,212,138,211,250,62,212,138,137,211,
  125.     211,61,62,212,138,138,158,172,180,159,138,112,138,138,211,46,46,250,
  126.     250,250,250,62,212,138,138,138,138,138,138,138,138,211,62,250,46,46,
  127.     226,138,138,138,138,211,46,62,212,138,138,138,225,45,62,138,211,45,
  128.     46,62,212,138,138,138,138,211,46,250,212,138,138,138,138,138,211,46,
  129.     250,212,211,46,250,62,137,138,138,137,225,46,46,62,138,211,46,250,
  130.     212,138,138,138,138,211,46,62,212,137,225,45,46,46,62,212,138,138,
  131.     158,172,173,138,112,111,138,138,211,46,46,250,62,212,212,138,138,138,
  132.     138,138,138,138,138,138,226,46,46,46,46,250,211,211,137,138,138,211,
  133.     46,250,211,211,211,225,45,45,62,138,211,45,46,62,212,138,138,138,138,
  134.     211,46,62,138,138,137,138,138,138,211,46,62,212,211,46,46,62,212,138,
  135.     138,226,45,36,62,212,138,225,45,250,62,211,211,137,138,211,46,250,62,
  136.     61,45,36,46,62,212,138,138,138,158,172,173,138,111,138,138,138,226,46,
  137.     250,250,62,212,138,138,138,137,211,211,138,138,211,225,45,36,46,250,
  138.     62,62,250,61,211,138,138,211,46,250,62,46,46,46,46,62,212,138,211,45,
  139.     46,62,212,138,138,138,138,211,46,62,138,138,138,138,138,138,211,46,62,
  140.     138,211,45,46,62,211,138,211,46,36,250,84,138,211,45,36,250,250,250,61,
  141.     211,138,211,46,46,250,46,45,46,62,84,138,138,137,138,158,172,173,138,
  142.     138,138,138,226,45,45,250,250,62,211,137,137,211,225,46,250,212,211,46,
  143.     36,36,46,250,62,212,212,62,250,62,212,138,211,46,46,250,250,62,62,212,
  144.     212,138,138,210,46,46,62,212,138,138,138,138,211,46,250,211,211,138,
  145.     138,138,138,211,46,62,138,211,45,46,250,62,211,225,36,46,62,212,138,
  146.     211,46,46,62,62,62,62,211,138,211,46,46,250,250,250,250,62,62,211,211,
  147.     211,211,158,158,173,158,138,138,211,61,45,46,250,250,250,62,211,225,46,
  148.     36,36,250,212,211,45,46,250,62,62,62,138,138,211,250,250,62,138,211,46,
  149.     46,62,212,212,138,138,138,138,137,225,45,46,62,212,138,138,138,138,211,
  150.     46,250,62,61,211,138,138,138,211,46,62,138,211,45,46,250,250,250,46,45,
  151.     62,84,138,138,137,211,250,62,212,212,212,138,138,211,46,46,250,62,62,
  152.     250,250,250,62,61,61,226,196,158,173,159,138,138,211,61,46,250,250,250,
  153.     250,250,250,46,36,46,250,62,212,225,45,46,250,62,212,138,138,138,211,
  154.     46,46,62,138,211,46,46,62,212,138,138,138,137,137,226,45,36,250,62,211,
  155.     211,211,211,211,211,46,46,250,250,211,211,211,211,226,46,62,138,211,45,
  156.     46,250,250,250,250,62,62,62,211,137,138,211,46,62,212,138,138,138,138,
  157.     211,46,46,62,212,212,61,250,250,250,250,250,211,196,172,180,159,139,
  158.     138,211,225,250,62,62,62,250,250,46,46,250,250,250,62,211,61,45,250,
  159.     62,62,138,138,138,138,211,46,250,212,138,225,45,46,62,212,138,138,138,
  160.     138,211,46,36,46,250,250,250,46,46,250,62,62,250,250,250,250,250,46,46,
  161.     250,61,46,62,212,225,45,46,250,62,212,212,211,250,250,62,211,138,211,
  162.     46,250,211,211,211,137,138,211,46,46,62,212,138,211,62,250,250,250,62,
  163.     212,172,1,180,159,138,138,138,211,211,212,212,211,62,62,62,250,250,250,
  164.     250,62,212,211,62,62,212,138,138,138,138,138,211,61,62,138,211,45,36,
  165.     250,62,211,138,138,138,138,225,36,46,250,250,250,46,46,46,250,250,62,
  166.     83,62,250,250,46,46,46,250,250,46,62,211,46,36,250,62,212,138,138,211,
  167.     61,250,250,62,211,211,250,250,62,46,250,211,211,226,46,46,62,212,138,
  168.     138,211,250,46,250,83,138,172,1,180,139,112,111,138,138,138,138,138,
  169.     138,137,212,211,62,62,62,62,212,138,138,138,138,138,138,138,138,138,
  170.     138,138,212,212,138,225,36,46,250,250,62,137,138,138,211,225,46,62,62,
  171.     62,62,62,250,250,250,250,62,212,212,62,250,250,250,250,250,250,250,83,
  172.     211,250,46,250,62,212,138,137,137,211,250,250,250,62,212,211,62,62,46,
  173.     250,250,62,226,61,250,62,211,138,138,211,61,62,62,212,158,172,180,180,
  174.     139,112,138,138,138,138,138,138,138,138,138,138,137,212,212,138,138,
  175.     138,137,138,138,138,137,138,138,138,138,138,138,138,211,225,46,62,62,
  176.     62,62,138,138,138,138,211,211,212,212,212,212,211,62,250,250,62,212,
  177.     138,138,211,62,62,62,62,62,62,62,212,138,211,62,62,62,211,211,137,138,
  178.     212,62,250,250,62,212,138,138,212,62,62,250,62,211,212,211,62,211,138,
  179.     138,138,211,212,138,138,138,158,180,180,139,112,138,138,138,138,138,
  180.     138,138,138,138,138,138,138,138,138,138,137,138,138,138,138,138,138,
  181.     138,138,138,138,138,138,138,211,211,212,212,212,138,138,138,138,138,
  182.     138,138,138,138,138,138,138,211,62,62,62,138,138,137,138,138,212,212,
  183.     212,212,212,138,138,138,138,211,62,62,62,226,212,138,138,211,62,250,
  184.     62,212,138,138,138,138,211,62,62,138,138,138,138,138,138,138,138,138,
  185.     138,138,138,138,158,180,180,139,112,138,138,138,138,138,138,138,138,
  186.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  187.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  188.     138,138,138,138,138,138,212,138,138,138,138,138,138,138,138,138,138,
  189.     138,138,138,137,138,138,138,212,212,212,138,138,138,138,211,62,62,
  190.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  191.     138,138,138,138,158,179,180,139,112,138,138,138,138,138,138,138,138,
  192.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  193.     138,138,138,138,138,138,158,158,159,159,159,138,138,138,138,138,138,
  194.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  195.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  196.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  197.     138,138,138,138,158,172,180,159,139,138,138,138,138,138,138,138,138,
  198.     138,138,138,138,138,158,158,172,159,159,138,138,138,138,138,138,138,
  199.     138,138,138,138,159,173,180,180,180,180,173,159,138,138,138,138,138,
  200.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  201.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,139,139,
  202.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  203.     158,159,159,159,159,173,242,173,173,159,159,159,138,138,138,138,159,
  204.     159,159,158,158,172,172,179,180,180,173,159,159,159,159,159,159,158,
  205.     159,159,159,173,180,180,242,1,0,1,180,173,159,138,138,138,138,138,138,
  206.     138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  207.     138,138,138,138,138,138,138,159,159,159,159,159,173,173,173,159,159,
  208.     158,159,159,159,158,159,159,159,158,158,138,138,138,158,159,173,180,
  209.     180,180,180,180,0,242,180,180,180,173,159,159,159,173,173,180,180,180,
  210.     180,180,2,1,0,1,180,180,180,180,180,180,180,180,180,180,180,180,242,1,
  211.     0,0,0,0,242,180,173,159,159,159,159,159,158,158,158,158,158,158,158,
  212.     158,158,158,158,138,138,138,138,138,138,138,138,158,158,158,158,159,
  213.     173,180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,
  214.     180,180,180,172,158,159,159,173,180,180,2,2,2,2,2,0,0,1,1,1,180,180,
  215.     180,180,180,2,242,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  216.     0,0,242,180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,
  217.     180,173,173,173,173,173,173,173,173,173,173,180,180,180,180,180,242,
  218.     1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,242,180,180,180,180,180,180,2,242,1,
  219.     1,1,1,1);
  220.  
  221. {----------------------------------------------------------------------------}
  222.  
  223. procedure setvideo(mode : word); assembler;
  224. asm mov ax,mode; int 10h; end;
  225.  
  226. {----------------------------------------------------------------------------}
  227.  
  228. procedure installcolors;
  229. var c : word; i : byte;
  230. begin
  231.   c := 0;
  232.   for i := 0 to $ff do begin
  233.     port[$3C8] := i;
  234.     port[$3C9] := pal[c];
  235.     port[$3C9] := pal[c+1];
  236.     port[$3C9] := pal[c+2];
  237.     inc(c,3);
  238.   end;
  239. end;
  240.  
  241. {----------------------------------------------------------------------------}
  242.  
  243. procedure scale(scx,scy,maxx,maxy : word);
  244. var stx,sty : real; x,y : word;
  245. begin
  246.   stx := maxx/scx; sty := maxy/scy;
  247.   for x := 0 to scx-1 do
  248.     for y := 0 to scy-1 do
  249.       mem[vseg:y*320+x] := pic[round(y*sty)*maxx+round(x*stx)];
  250. end;
  251.  
  252. {----------------------------------------------------------------------------}
  253.  
  254. var x,y : word;
  255. begin
  256.   setvideo($13);
  257.   checkbreak:=true;
  258.   installcolors;
  259.   for x := 1 to 100 do
  260.     scale(2*x,x,102,31);
  261.   repeat until keypressed;
  262.   textmode(lastmode);
  263. end.
  264.